home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Freeware / Remapollo / Modules / NoClick.s < prev   
Text File  |  2002-10-27  |  1KB  |  58 lines
  1.  
  2. * NoClick patch module for RemAPollo
  3. * based on BlizKick [(c) Harry Sintonen] interface
  4. * Public Domain
  5. * coded by MM in 1999
  6.  
  7. * changed the way noclick is installed - it can be now examined/switched by
  8. * manipulating TDP_NOCLICK flag independently for each unit
  9.  
  10. * removed support for hackdisk.device
  11.  
  12.     moveq    #'z',d0            ;BKMODULE_ID
  13.     rts
  14.  
  15.     dc.l    $4e71            ;BKEP_ID
  16.  
  17.     moveq    #0,d7
  18.     move.l    a1,-(sp)
  19.     lea    (_tdname,pc),a1        ; _FindResident
  20.     jsr    (a2)
  21.     movea.l    (sp)+,a1
  22.     tst.l    d0
  23.     beq    .exit
  24.     movea.l    d0,a0            ; a2=trackdisk resident
  25.  
  26.     move.b    (11,a0),d0
  27.     cmpi.b    #36,d0
  28.     bcs    .exit
  29.  
  30.     move.l    (6,a0),d1        ;endskip
  31.     sub.l    (2,a0),d1
  32.     ror.l    #1,d1            ; Max Num of words to seach
  33.     
  34. .find    subq.l    #1,d1
  35.     beq    .ok
  36.     cmpi.w    #$3a98,(a0)+
  37.     bne    .find
  38.     cmpi.w    #$0a00,(a0)+
  39.     bne    .find
  40.     move.b    #1,(-1,a0)        ;set TDP_NOCLICK
  41.     bra    .find    
  42.  
  43. .ok    moveq    #1,d7
  44. .out    move.l    d7,d0
  45.     rts
  46.  
  47. .exit    lea    (_error1,pc),a0        ; a0=fmt
  48.     pea    (_tdname,pc)
  49.     move.l    sp,a1            ; a1=array
  50.     jsr    (a4)            ; Call _Printf
  51.     addq.l    #4,sp
  52.     bra    .out
  53.  
  54. _tdname    dc.b    'trackdisk.device',0
  55.  
  56. _error1    dc.b    'NoClick: This patch requires %s V37+!',10,0
  57.     dc.b    '$VER: NoClick_PATCH 1.4 (14.5.2000)',13,10,0
  58.